home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / capIt XFCN No install.cpt / capIt XFCN.No installer / background_4073.txt < prev    next >
Text File  |  1990-03-18  |  5KB  |  240 lines
  1. -- background: 4073 from stack: in.No installer
  2. -- bmap block id: 3072
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: capIt bkgnd
  6.  
  7.  
  8. -- part 89 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=449 top=278 right=314 bottom=485
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 28345 / 28345
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Pop card
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect zoom close
  23.   pop card
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 90 (button)
  29. -- low flags: 00
  30. -- high flags: 2000
  31. -- rect: left=415 top=278 right=314 bottom=451
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 103 / 103
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Home
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual effect zoom close
  43.   go home
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 91 (field)
  49. -- low flags: 01
  50. -- high flags: 2007
  51. -- rect: left=27 top=165 right=314 bottom=277
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 15032
  56. -- text size: 10
  57. -- style flags: 0
  58. -- line height: 13
  59. -- part name: About capIt
  60.  
  61.  
  62. -- part 93 (button)
  63. -- low flags: 00
  64. -- high flags: 2000
  65. -- rect: left=381 top=278 right=314 bottom=417
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 8067 / 8067
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Slithy
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   -- Go to Slithy Resources credit card
  77.   visual effect zoom open
  78.   push card
  79.   go to card "Slithy 1"
  80. end mouseUp
  81.  
  82.  
  83. -- part 95 (field)
  84. -- low flags: 00
  85. -- high flags: 2002
  86. -- rect: left=293 top=176 right=198 bottom=485
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 0
  90. -- font id: 15032
  91. -- text size: 10
  92. -- style flags: 0
  93. -- line height: 13
  94. -- part name: Output string
  95.  
  96.  
  97. -- part 96 (field)
  98. -- low flags: 00
  99. -- high flags: 2002
  100. -- rect: left=293 top=51 right=73 bottom=485
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 15032
  105. -- text size: 10
  106. -- style flags: 0
  107. -- line height: 13
  108. -- part name: Input string
  109.  
  110.  
  111. -- part 97 (button)
  112. -- low flags: 00
  113. -- high flags: 4006
  114. -- rect: left=311 top=108 right=130 bottom=378
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: upper
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   set the hilite of me to true
  126.   set the hilite of bkgnd button "lower" to false
  127.   put the short name of me into bkgnd field "whichWay"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 98 (button)
  133. -- low flags: 00
  134. -- high flags: 0006
  135. -- rect: left=402 top=108 right=130 bottom=469
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: lower
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   set the hilite of me to true
  147.   set the hilite of bkgnd button "upper" to false
  148.   put the short name of me into bkgnd field "whichWay"
  149. end mouseUp
  150.  
  151.  
  152. -- part 99 (button)
  153. -- low flags: 00
  154. -- high flags: 0006
  155. -- rect: left=402 top=130 right=152 bottom=469
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: first
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   set the hilite of me to true
  167.   set the hilite of bkgnd button "all" to false
  168.   put the short name of me into bkgnd field "allFlag"
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 100 (button)
  174. -- low flags: 00
  175. -- high flags: 4006
  176. -- rect: left=311 top=130 right=152 bottom=378
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: all
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   set the hilite of me to true
  188.   set the hilite of bkgnd button "first" to false
  189.   put the short name of me into bkgnd field "allFlag"
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 102 (field)
  195. -- low flags: 81
  196. -- high flags: 0000
  197. -- rect: left=293 top=290 right=304 bottom=365
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 0
  201. -- font id: 3
  202. -- text size: 9
  203. -- style flags: 0
  204. -- line height: 12
  205. -- part name: allFlag
  206.  
  207.  
  208. -- part 103 (button)
  209. -- low flags: 00
  210. -- high flags: 2000
  211. -- rect: left=354 top=80 right=103 bottom=420
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: capIt
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   -- Show result of capIt with settings from radio buttons
  223.   put capIt (bkgnd field "input string", bkgnd field "whichWay", bkgnd field "allFlag") into bkgnd field "Output string"
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 104 (field)
  229. -- low flags: 81
  230. -- high flags: 0000
  231. -- rect: left=293 top=273 right=287 bottom=365
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 3
  236. -- text size: 9
  237. -- style flags: 0
  238. -- line height: 12
  239. -- part name: whichWay
  240.